#---------------------------------------------
# Generar datos (Computos 2012) 
#---------------------------------------------
IFE <- read.table("datos_computos_casillas_diputados.txt", header=TRUE, sep = "|")

# Remover RP
IFE <- IFE[!IFE$TIPO_CANDIDATURA == 3,]

# Agregar votos
data <- data.frame(PAN = IFE$PAN,
                   PRI = IFE$PRI,
                   PVEM= IFE$PVEM,
                   PRI.PVEM = IFE$PRI_PVEM,
                   MP = rowSums(IFE[,c("PRD","PT","MC","PRD_PT_MC","PRD_PT","PRD_MC","PT_MC")]),
                   PANAL = IFE$PANAL)

# Agregar votos por seccion
data <- aggregate(data, by=IFE[c("ID_ESTADO","D_DISTRITO","SECCION")], sum)

rm(IFE)